(dired-copy-filename-as-kill): Call kill-append if following a kill command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 383effb5eb71f4382570cbe2bddfe8e4b19f36bf..dde227b915d5123cf0eca72c259071536ba526e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-07  Richard M. Stallman  <rms@gnu.org>
 
+       * dired.el (dired-copy-filename-as-kill): Call kill-append
+       if following a kill command.
+
        * help-fns.el (describe-variable, describe-function):
        Do save-excursion.
 

diff --git a/lisp/dired.el b/lisp/dired.el
index 48296ba26ab37cc4be6c9982f9e494d989797131..0ad019a321d021a7d4f9b8b3ed5252a8d998005a 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1615,7 +1615,9 @@ You can then feed the file name(s) to other commands with \\[yank]."
                                    (dired-get-marked-files t)))
                           (dired-get-marked-files 'no-dir))
                         " "))))
-    (kill-new string)
+    (if (eq last-command 'kill-region)
+       (kill-append string nil)
+      (kill-new string))
     (message "%s" string)))
 
 \f